home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Informant Complete 1995 - 2000
/
Delphi Informant Complete 1995 to 2000.iso
/
Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar
/
1995
/
JUL
/
CJ9507
/
unit1.dfm
/
unit1.txt
Wrap
Text File
|
1995-06-01
|
6KB
|
274 lines
object Form1: TForm1
Left = 111
Top = 115
Width = 626
Height = 387
Caption = 'Form1'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 40
Top = 66
Width = 91
Height = 16
Caption = 'Order Number'
end
object Label2: TLabel
Left = 31
Top = 105
Width = 99
Height = 16
Caption = 'Customer Code'
end
object Label3: TLabel
Left = 31
Top = 138
Width = 102
Height = 16
Caption = 'Employee Code'
end
object DBText1: TDBText
Left = 288
Top = 104
Width = 267
Height = 17
DataField = 'CustName'
DataSource = DataSource1
end
object DBText2: TDBText
Left = 288
Top = 136
Width = 241
Height = 17
DataField = 'EmpName'
DataSource = DataSource1
end
object Label4: TLabel
Left = 117
Top = 19
Width = 353
Height = 24
Alignment = taCenter
Caption = 'Truly Deep Diving Custom Order Form'
Font.Color = clNavy
Font.Height = -21
Font.Name = 'Poppl-Laudatio Regular'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 27
Top = 171
Width = 72
Height = 16
Caption = 'Line Items:'
end
object DBEdit1: TDBEdit
Left = 140
Top = 61
Width = 121
Height = 24
DataField = 'OrderNo'
DataSource = DataSource1
MaxLength = 0
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 140
Top = 100
Width = 121
Height = 24
DataField = 'CustNo'
DataSource = DataSource1
MaxLength = 0
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 140
Top = 132
Width = 121
Height = 24
DataField = 'EmpNo'
DataSource = DataSource1
MaxLength = 0
TabOrder = 2
end
object DBNavigator1: TDBNavigator
Left = 286
Top = 59
Width = 241
Height = 25
DataSource = DataSource1
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object DBGrid1: TDBGrid
Left = 14
Top = 190
Width = 571
Height = 121
DataSource = DataSource2
TabOrder = 4
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'System'
TitleFont.Style = []
end
object Button1: TButton
Left = 230
Top = 322
Width = 113
Height = 25
Caption = 'E&xit'
TabOrder = 5
OnClick = Button1Click
end
object Table5: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'EMPLOYEE.DB'
Left = 318
Top = 234
object Table5EmpNo: TIntegerField
FieldName = 'EmpNo'
end
object Table5LastName: TStringField
FieldName = 'LastName'
end
end
object Table4: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'CUSTOMER.DB'
Left = 285
Top = 236
object Table4CustNo: TFloatField
FieldName = 'CustNo'
end
object Table4Company: TStringField
FieldName = 'Company'
Size = 30
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 188
Top = 201
end
object Table1: TTable
Active = True
OnCalcFields = Table1CalcFields
DatabaseName = 'DBDEMOS'
TableName = 'ORDERS.DB'
Left = 188
Top = 234
object Table1OrderNo: TFloatField
FieldName = 'OrderNo'
Visible = False
end
object Table1CustNo: TFloatField
FieldName = 'CustNo'
Required = True
end
object Table1EmpNo: TIntegerField
FieldName = 'EmpNo'
Required = True
end
object Table1CustName: TStringField
Calculated = True
FieldName = 'CustName'
end
object Table1EmpName: TStringField
Calculated = True
FieldName = 'EmpName'
end
end
object Table3: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'PARTS.DB'
Left = 254
Top = 233
object Table3PartNo: TFloatField
FieldName = 'PartNo'
end
object Table3Description: TStringField
FieldName = 'Description'
Size = 30
end
object Table3ListPrice: TCurrencyField
FieldName = 'ListPrice'
Currency = True
end
end
object DataSource2: TDataSource
DataSet = Table2
Left = 221
Top = 201
end
object Table2: TTable
Active = True
OnCalcFields = Table2CalcFields
DatabaseName = 'DBDEMOS'
IndexFieldNames = 'OrderNo'
MasterFields = 'OrderNo'
MasterSource = DataSource1
TableName = 'ITEMS.DB'
Left = 222
Top = 234
object Table2OrderNo: TFloatField
FieldName = 'OrderNo'
Visible = False
end
object Table2ItemNo: TFloatField
DisplayWidth = 7
FieldName = 'ItemNo'
end
object Table2PartNo: TFloatField
DisplayWidth = 9
FieldName = 'PartNo'
end
object Table2Description: TStringField
Calculated = True
DisplayWidth = 18
FieldName = 'Description'
end
object Table2Qty: TIntegerField
DisplayWidth = 10
FieldName = 'Qty'
end
object Table2Price: TCurrencyField
Calculated = True
DisplayWidth = 10
FieldName = 'Price'
Currency = True
end
object Table2Total: TCurrencyField
Calculated = True
DisplayWidth = 10
FieldName = 'Total'
Currency = True
end
end
object DataSource3: TDataSource
DataSet = Table3
Left = 253
Top = 201
end
object DataSource4: TDataSource
DataSet = Table4
Left = 284
Top = 202
end
object DataSource5: TDataSource
DataSet = Table5
Left = 317
Top = 203
end
end